home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / spriteb. v3 demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  143 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *    SPRITEBASIC V3.0 DEMO     *
  4. 40 REM *    ---------------------     *
  5. 50 REM *    WRITTEN BY PH. HERZOG     *
  6. 60 REM *                              *
  7. 70 REM ********************************
  8. 80 :
  9. 90 _X:_\:__"........":REM RESET            +HYPERSCREEN ON
  10. 100 _R,13:REM G-ZEIGER AUF BLOCK 13
  11. 110 _G"........*****..........."
  12. 120 _G"........*****..........."
  13. 130 _G".........***............"
  14. 140 _G".........***............"
  15. 150 _G"..........*............."
  16. 160 _G"..........*............."
  17. 170 _G"....*************......."
  18. 180 _G".....***********........"
  19. 190 _G"......*********........."
  20. 200 _G".......*******.........."
  21. 210 _G".......*******.........."
  22. 220 _G".......*******.........."
  23. 230 _G".......*******.........."
  24. 240 _G".......*******.........."
  25. 250 _G".......*******.........."
  26. 260 _G".......*******.........."
  27. 270 _G".......*******.........."
  28. 280 _G"........*****..........."
  29. 290 _G"........*****..........."
  30. 300 _G".........***............"
  31. 310 _G"..........*............."
  32. 320 :
  33. 330 REM G-ZEIGER SPRINGT AUTOMATISCH AUF 14
  34. 340 :
  35. 350 _T"............"
  36. 360 _T"............"
  37. 370 _T"............"
  38. 380 _T"............"
  39. 390 _T"............"
  40. 400 _T".....AA....."
  41. 410 _T".....AA....."
  42. 420 _T"....BBBB...."
  43. 430 _T"..BBBBBBBB.."
  44. 440 _T"CAAACCCAAACC"
  45. 450 _T"AAACCCAAACCC"
  46. 460 _T"..BBBBBBBB.."
  47. 470 _T"....BBBB...."
  48. 480 _T".....BB....."
  49. 490 _T"............"
  50. 500 _T"............"
  51. 510 _T"............"
  52. 520 _T"............"
  53. 530 _T"............"
  54. 540 _T"............"
  55. 550 _T"            "
  56. 560 :
  57. 570 _T"............"
  58. 580 _T"............"
  59. 590 _T"............"
  60. 600 _T"............"
  61. 610 _T"............"
  62. 620 _T"..BBBAABBB.."
  63. 630 _T".BBAAAAAABB."
  64. 640 _T"BBAAAAAAAABB"
  65. 650 _T"BAAAAAAAAAAB"
  66. 660 _T"BBAAAAAAAABB"
  67. 670 _T"BBBBBAABBBBB"
  68. 680 _T".BB.BAAB.BB."
  69. 690 _T"....BAABB..."
  70. 700 _T"...BBAAB...."
  71. 710 _T"....BAAB...."
  72. 720 _T"....BAABB..."
  73. 730 _T"...BBAAB...."
  74. 740 _T"....BAAB...."
  75. 750 _T"....BAABB..."
  76. 760 _T"...BBAAB...."
  77. 770 _T"....BAAB...."
  78. 780 :
  79. 790 REM KOLLISIONSDEMO
  80. 800 :
  81. 810 _U,1,0:_C,0,0:_C,1,12:_M,1:REM FARBEN + MULTICOLOR SETZEN
  82. 820 _EX,1:REM EXPAND
  83. 830 _I,0,13:_I,1,14:REM SPRITEPOINTER AUF BLOCK SETZEN
  84. 840 _P,1,0,200:_P,0,170,0:REM SPRITES SETZEN
  85. 850 _N,0:_N,1:REM EINSCHALTEN
  86. 860 _W,1,1,0,0,0
  87. 870 PRINT"[147]JOYSTICK PORT 2 ZUR STEUERUNG DER BOMBE BENUTZEN"
  88. 880 PRINT" F1 [146] TO EXIT"
  89. 890 _W,0,USR(16+2*1+0),2,0,0:REM JOYSTICK IM W-BEFEHL
  90. 900 IFPEEK(203)=4THEN1000
  91. 910 IFUSR(1)=0THEN890:REM KOLLISION?
  92. 920 _W,0,1,2,3,0
  93. 930 PRINT"[147]";:FORX=0TO63
  94. 940 POKE646,X:PRINT"BOOM!
  95. 950 [130]:[153]"LOAD":[139][183](1)[178]1[167]930
  96. 960 [137]870
  97. 970 :
  98. 980 [143] _A/_J UND POSITIONSABNBFRAGEDEMO
  99. 990 :
  100. 1000 _A:[143] INTERRUPT AUS
  101. 1010 [153]"LOAD_A/_J UND POSITIONSABFRAGE-DEMO"
  102. 1020 _P,0,13,13
  103. 1030 _P,1,0,0:_@
  104. 1040 _W,0,1,1,0,1:_W,1,1,1,0,1
  105. 1050 _J:[143] INTERRUPT WIEDER AN
  106. 1060 [153]"DRUECKE EINE TASTE UM DIE RAKETE        FALLENZULASSEN!"
  107. 1070 [151]198,0:[146]198,1:[151]198,0:_W,0,0,2,0,0
  108. 1080 [139][183](257)[179]229[167]1080
  109. 1090 _I,0,15:_M,0:_C,0,2:_W,0,0,0,0,0
  110. 1100 _P,0,[183](256),207:_EY,0
  111. 1110 [129]X[178]0[164]10:_N,0:[129]Y[178]0[164]50:[130]:_F,0:[129]Y[178]0[164]50:[130]Y,X
  112. 1120 [139][183](258)[179]400[167]1120
  113. 1130 _I,0,13:_H,0:_C,0,0:_N,0
  114. 1140 _A:_R,13:_K:_R,14:_K:_P,0,13,0:_P,1,0,13:_W,0,1,1,0,1:_J:_DY,0
  115. 1150 [153]"JETZT STEHT ALLES KOPF!"
  116. 1160 [153]"WEITER MIT SPACE"
  117. 1170 [146]203,60
  118. 1180 [153]"LOAD_Z-DEMO"
  119. 1190 _F,1:_P,0,50,230:_R,13
  120. 1200 _W,0,0,255,0,1
  121. 1210 [139][183](257)[177]180[167]1210
  122. 1220 _W,0,0,255,0,0
  123. 1230 [139][183](257)[177]80[167]1230
  124. 1240 _Z:_W,0,1,0,0,0
  125. 1250 [139][183](256)[179]300[167]1250
  126. 1260 _Z:_W,0,0,1,0,0
  127. 1270 [139][183](257)[179]200[167]1270
  128. 1280 _Z:_W,0,255,0,0,0
  129. 1290 [139][183](256)[179]500[167]1290
  130. 1300 :
  131. 1310 [143] SPRUNGDEMO
  132. 1320 :
  133. 1330 _X
  134. 1340 _N,0
  135. 1350 _I,0,13
  136. 1360 [153]"LOADMIT _L,13,255 MACHEN WIR EINEN KASTEN"
  137. 1370 _L,13,255:_C,0,1:_I,0,13:_P,0,24,58
  138. 1380 [153]"MIT _W,0,20,0,20,0 LASSEN WIR IHN       SPRINGEN"
  139. 1390 _W,0,20,0,20,0
  140. 1400 [153]"DRUECKE SPACEWAIT FUER ENDE":[151]198,0
  141. 1410 [161]A$:[139]A$[179][177]" "[137]1410
  142. 1420 _X
  143.